home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)za.d64 / tod.proc < prev    next >
Text File  |  2007-03-01  |  774b  |  29 lines
  1. 9000 PROC SET'TOD(HOURS,MINUTES,SECONDS,AM'PM) CLOSED
  2. 9010 POKE 56331,DEC'TO'BCD(HOURS)+128*AM'PM //HOURS
  3. 9020 POKE 56330,DEC'TO'BCD(MINUTES) //MINUTES
  4. 9030 POKE 56329,DEC'TO'BCD(SECONDS) //SECONDS
  5. 9040 POKE 56328,0 //SECONDS (TENTHS)
  6. 9050 ENDPROC SET'TOD
  7. 9060 //
  8. 9070 PROC READ'TOD(REF HRS,REF MINS,REF SECS,REF TENTHS,REF AM'PM) CLOSED
  9. 9080 TENTHS:=PEEK(56328)
  10. 9090 SECS:=BCD'TO'DEC(PEEK(56329))
  11. 9100 MINS:=BCD'TO'DEC(PEEK(56330))
  12. 9110 HRS:=PEEK(56331)
  13. 9120 AM'PM:=0
  14. 9130 IF HRS>127 THEN
  15. 9140 HRS:-128
  16. 9150 AM'PM:=1
  17. 9160 ENDIF 
  18. 9170 HRS:=BCD'TO'DEC(HRS)
  19. 9180 ENDPROC READ'TOD
  20. 9190 //
  21. 9200 FUNC BCD'TO'DEC(X) 
  22. 9210 RETURN (X DIV 16)*10+(X MOD 16)
  23. 9220 ENDFUNC BCD'TO'DEC
  24. 9230 //
  25. 9240 FUNC DEC'TO'BCD(X) 
  26. 9250 RETURN (X DIV 10)*16+(X MOD 10)
  27. 9260 ENDFUNC DEC'TO'BCD
  28. 9270 //
  29.